Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/wantan1a/form1.frm

Text File | 1999-09-05 | 8KB | 247 lines

VERSION 5.00
Begin VB.Form Form1
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   2475
   ClientLeft      =   3405
   ClientTop       =   1605
   ClientWidth     =   4620
   LinkTopic       =   "Form1"
   ScaleHeight     =   2475
   ScaleWidth      =   4620
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame2
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Caption         =   "Frame2"
      Height          =   855
      Left            =   3240
      TabIndex        =   6
      Top             =   1440
      Width           =   1215
      Begin VB.OptionButton Option3
         BackColor       =   &H80000012&
         Caption         =   "poor"
         ForeColor       =   &H8000000E&
         Height          =   255
         Left            =   120
         TabIndex        =   11
         Top             =   600
         Width           =   975
      End
      Begin VB.OptionButton Option2
         BackColor       =   &H80000012&
         Caption         =   "aigh"
         ForeColor       =   &H8000000E&
         Height          =   255
         Left            =   120
         TabIndex        =   10
         Top             =   360
         Width           =   855
      End
      Begin VB.OptionButton Option1
         BackColor       =   &H80000009&
         Caption         =   "Good"
         ForeColor       =   &H8000000E&
         Height          =   195
         Left            =   120
         TabIndex        =   9
         Top             =   120
         Width           =   855
      End
   End
   Begin VB.Frame Frame1
      BackColor       =   &H80000008&
      BorderStyle     =   0  'None
      Caption         =   "Frame1"
      Height          =   615
      Left            =   3240
      TabIndex        =   3
      Top             =   600
      Width           =   1215
      Begin VB.CommandButton Command2
         BackColor       =   &H8000000E&
         Caption         =   "Exit"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         MouseIcon       =   "Form1.frx":0000
         MousePointer    =   99  'Custom
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton Command1
         BackColor       =   &H8000000E&
         Caption         =   "Send"
         BeginProperty Font
            Name            =   "Arial"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Left            =   120
         MouseIcon       =   "Form1.frx":0152
         MousePointer    =   99  'Custom
         Style           =   1  'Graphical
         TabIndex        =   4
         Top             =   120
         Width           =   975
      End
   End
   Begin VB.TextBox Text3
      ForeColor       =   &H80000009&
      Height          =   2175
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   2
      Top             =   120
      Width           =   3015
   End
   Begin VB.TextBox Text1
      ForeColor       =   &H80000009&
      Height          =   285
      Left            =   3240
      TabIndex        =   1
      Text            =   "Who"
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Text2
      BackColor       =   &H80000008&
      ForeColor       =   &H8000000E&
      Height          =   285
      Left            =   1080
      TabIndex        =   0
      Text            =   "(`v^-v^ErrorR's Macro Shop^v-^v┤)"
      Top             =   2880
      Width           =   1215
   End
   Begin VB.Label Label2
      BackStyle       =   0  'Transparent
      Caption         =   "Mail ReV:"
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3360
      TabIndex        =   8
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label1
      BackColor       =   &H00404040&
      Height          =   255
      Left            =   3240
      TabIndex        =   7
      Top             =   1200
      Width           =   1215
   End
   Begin VB.Line Line3
      BorderColor     =   &H8000000E&
      BorderWidth     =   8
      X1              =   3240
      X2              =   4440
      Y1              =   2280
      Y2              =   2280
   End
   Begin VB.Line Line4
      BorderColor     =   &H8000000E&
      BorderWidth     =   8
      X1              =   4440
      X2              =   4440
      Y1              =   600
      Y2              =   2280
   End
   Begin VB.Line Line2
      BorderColor     =   &H8000000E&
      BorderWidth     =   7
      X1              =   3240
      X2              =   3240
      Y1              =   600
      Y2              =   2280
   End
   Begin VB.Line Line1
      BorderColor     =   &H8000000E&
      BorderWidth     =   7
      X1              =   3240
      X2              =   4440
      Y1              =   600
      Y2              =   600
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Call SendMail(Text1, Text2, Text3)
End Sub

Private Sub Command2_Click()
Unload Me
Form49.Show
End Sub

Private Sub Form_Load()
StayOnTop Me
Call FormShade_Grey(Form1)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormMove Me
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H8000000D
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H8000000D
End Sub

Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H8000000D
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &H8000000E
End Sub

Private Sub Option1_Click()
Text3 = " Yo this shit is the fucking bomb nigga. Well i just give you props with your fucking works peace out -g -=)"
Text1 = "[e-mail],[e-mail],[e-mail],[e-mail]"

End Sub

Private Sub Option2_Click()
Text3 = " This shit aigh but needs some work but i like it ill use it -=)"
Text1 = "[e-mail],[e-mail],[e-mail],[e-mail]"
End Sub

Private Sub Option3_Click()
Text3 = " yo this shit need mad fucking work shit am sorry i fucking downloaded. But some words from |2eV fuck you lamer you must die here take this BLAH DIE WHORE hehehe "
Text1 = "[e-mail],[e-mail],[e-mail],[e-mail]"
End Sub